Wst^p do programowania systemowego 



GetlntVec (no:bvte: I NT: pointer) { np. GetlntVec($lC,tennp); } 
Procedura zwracajgca wskaznik do procedury przerwania o numerze no. 
SetlntVec (no.byte; vector:pointer) { np. SetlntVec($lC,@>procedj; } 

Procedura ustawiajqca procedure wskazywang przez wskaznik vector jako przerwanie o numerze no. 

lntr(intNO:byte; reg:registersj { np. lntr($lA,regj; } 

Procedura wykonuj^ca przerwanie o numerze intNO, przy rejestrach reg. 

MsDosf reg: registers) 

Procedura wykonujgca przerwanie DOS numer 21h (33) przy rejestrach reg. 
Registers: 

Typ uzywany przez procedury intr i msdos do reprezentacji rejestrow procesora. Jest rekordem wielowariantowym: 



TYPE 








Registers = record 








case Integer of 








0: (AX, BX, CX, DX, 


BP, SI, DI, 


DS, 


ES, Flags: Word) ; 


1: (AL, AH, BL, BH, 


CL, CH, DL, 


DH : 


Byte) ; 


end; 









Budowa 16-bit, reiestru znacznikow tflaas): 

bity 15-12: nieuzywane 

bit 11: przepetnienie (OF) 

bit 10: kierunek operacji taricuchowych (DF) 

bit 9: uaktywnienie przerwari (IF) 

bit 8: putapka (TF) 

bit7:znak(SF) 

bit 6: zero (ZF) 

bit 5: nieuzywane 

bit 4: przeniesienie pomocnicze (AF) 

bit 3: nieuzywane 

bit 2: parzystosc (PF) 

bit 1: nieuzywane 

bit 0: przeniesienie (CF) 

State do testowania pojedynczych bitow reiestru flap procesora: 

Stala Wartosc 
FCARRY OOOlh 
FPARITY 0004h 
FAUXILIARY OOlOh 
FZERO 0040h 
FSIGN 0080h 
FOVERFLOW 0800h 
State dostepu plil<6w: 
FMCLOSED D7B0h 
FMINPUT D7Blh 
FMOUTPUT D7B2h 
FMINOUT D7B3h 

State atrybutow plil<6w: 

READONLY Olh 
HIDDEN 02h 
SYSFILE 04h 
VOLUMEID 08h 
DIRECTORY lOh 
ARCHIVE 20h 
ANYFILE 3Fh 

Mem, MemL, oraz MemW 

Turbo Pascal posiada trzy predefiniowane tablice stuzqce do bezposredniego odwoiywania si§ do pami^ci: IVlem, IVlemL, oraz IVlemW. 

■ Kazdy element tablicy Mem jest typu Byte 

■ Kazdy element tablicy MemW jest typu Word 

■ Kazdy element tablicy MemL jest typu Longint. 

Tablice Mem posiadajg specyficzng sktadnie z dwoma indeksami: dwa stowa typu integer oddzielone dwukropkiem okreslaj^ce segment i offset pamiQci. 
Mem[seg:ofs]; 



Addr 

Function Addr{X: TAnyType): Pointer; 

Addr zwraca wsl<aznil< na swbj argument, I<t6ry moze bye dowolnego typu, tal<ze nazwg procedury lub funkcji. Zwracany wsl<aznil< jest nietypowany. Ten sam 
efel<t mozna uzysl<ac za pomocg operatora @, I<t6ry moze zwracac wsl<aznil< typowany. 



Program AdresyZmiennych; 

{Program demonstru j acy dzialanie funkcji Addr} 


Const 




Zero : Integer 


= 0; 


Var 




P : Pointer; 
I : Integer; 




Begin 
P : =Addr ( P ) ; { 
P : =Addr ( I ) ; { 
P:=Addr (Zero) ; { 

End. 


P wskazuje na sama siebie } 
P wskazuje na I } 
P wskazuje na Zero } 



Returns the offset of tlie address of a variable. 



Program Example4 4; 

{ Program to demonstrate the Ofs function. } 

Var W : Pointer; 

begin 

W : =Pointer (Of s (W) ) ; { W contains its own offset. } 
end. 



Ptr 

Function Ptr{Seg, Ofs: Word) - zwraca wskaznik na [SegiOfs] 
Sep 

Seg returns the segment of the address of a variable 



Program Example60; 

{ Program to demonstrate the Seg function. } 
Var 

W : Word; 

begin 

W:=Seg(W); { W contains its own Segment} 
end . 



SizeOf 

Function SizeOf{V): Word - wielkosc zmiennej w pami^ci 
FillChar 

Fill memory region w/ith certain character 



procedure FillChar ( 
var x; 

count: Sizeint ; 
Value: Char 

) ; 

f/7/c/ior fills the memory starting at X with Count bytes or characters with value equal to Value. 



High 

Return highest index of open array or enumerated 
Low 

Return lowest index of open array or enumerated 



Move 

Move moves Count bytes from Source to Dest. 



Program Example42; 

{ Program to demonstrate the Move function. } 

Var SI, S2 : String [30] ; 

begin 

SI :=' Hello World ! ' ; 
S2 :='Bye, bye ! ' ; 
Move (SI, S2, Sizeof (SI) ) ; 
Writeln (S2) ; 
end. 

Zadanie 1 

Napisz program (moze bye z uzyciem procedury/funkcji) wyswietlajgcy kod ASCII znaku wprowadzonego przez uzytkownika (np. 'a' 97). Nalezy zastosowac 
rzutowanie zmiennej jednego typu na Inny (w gr^ wchodz^ typy: Char i Byte). 

Przykiad rzutowania zmiennej typu zdefiniowana tablica na typ Word; 

type 

tab=array [ 1 . . 2 ] of Char; 

var 

a: Word; 
b: tab; 
begin 

Word(b) :=$AB09; 



Rozwiqzanie: 

'progranr^aET~T7^^^^^^^^^~^^^^^^^^^~ 

uses crt,dos; 
var 

c : char; 
begin 

writeln (' Podaj jakis znak: '); 
readln (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (byte (c) ) ; 
readln; 
end . 



Zadanie 2 

Zadanie takie jak wyzej, ale zamiast rzutowania uzyj zmiennych absolutnych (dyrektywa absolute). 
Przyktad: 

Ty^S 

tab=array [ 1 . . 2 ] of Char; 

var 

a: Word; 

b: tab absolute a; 
Rozwiazanie: 



program labl_2; 
uses crt,dos; 
var 
c : char; 

b:byte absolute c; 
begin 

writeln (' Podaj jakis znak: '); 
readln (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (b) ; 
readln; 
end. 



Zadanie 3 

Zadanie takie jak wyzej, ale zamiast rzutowania lub zmiennycli absolutnych (dyrektywa absolute) uzyj zmiennych wskaznikowych/wskazywanych. Wskazowka: 
adres zmiennej przechowujgcej znak przypisuj zmiennej wskazujqcej na wartosci typu Byte - tatwiej wtedy wyswietlac zawartosc zmiennej wskazywanej z 
jednoczesng konwersj^ na postac znakowq. Posiuz si^ funkcjq Addr() lub operatorem @. 
Rozwiazanie: 



program labl_3; 
uses crt,dos; 
var 

c : char ; 

w: '"byte; 

begin 

writeln ( ' Poda j jakis znak: '); 
readln (c) ; 
w:=addr (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (w'" ) ; 
readln; 
end. 



Blok opisu pliku (FCB) 

numer nap^du - 1 bajt (0=dysk roboczy (biezqcy),l=dysk A,2=dysk B, 
itd.) 

nazwa pliku - 8 bajtow 

rozszerzenie nazwy - 3 bajty 

biezgcy blok - 2 bajty 

dt. rekordu - 2 bajty 

dt. pliku - 4 bajty 

data ost. modyfikacji - 2 bajty 

czas ost. modyfikacji - 2 bajty 

zarezerwowane - 8 bajtow 

biezqcy rekord w bloku - 1 bajt 

biezgcy rekord w dostQpie swobodnym - 4 bajty 

Bait z atrvbutami pliku: 

7,6 - nieuzywane 
5 - archive file 
4 - podkatalog 
3 - etykieta dysku 
2 - system file 
1 - hidden file 
0 - read-only file 

lahcuch tekstowv ASCIIZ 

To taricuch zakoriczony znakiem pustym (pozycja 0 w tabeli ASCII lub inaczej #0). Tego typu taricuchy przechowuje si^ w tablicach znakowych o podstawie 0 lub w 
miejscach wskazywanych zmienng typu PChar. Uzywanie taricuchow ASCIIZ znacz^co utatwia wykorzystanie funkcji/procedur z modutu Strings, tancuch ASCIIZ 
nie przechowuje swojej dtugosci tak jak robi to taricuch typu String. Efektywna pojemnosc taricucha ASCIIZ ograniczona jest wielkosciq dost^pnej pamiQci (w 
praktyce do 64 kB) a wi^c jest znacznie wi^ksza, niz dia typu string. 

type 

tab_zero = array [0 . .20] of Char; 

var 

a: tab_zero; 

wowczas musi bye a[20] :=#0; 

lub 

var 

a: PChar; (PChar to to samo co ^Charj 
Zadanie 1. 

Napisz program, ktory wydrukuje na ekranie komputera zawartosc tablicy wektordw przerwari. Numery przerwan i adresy procedur ich obstugi powinny bye 
wydrukowane w kodzie szesnastkowym, przy czym adresy powinny by podzielone na segment i offset. (Wskazowka - przerwania s^ numerowane od 0-255, do 
pobrania adresu procedury obstugi przerwania uzyc procedury GetlntVec). 

program lab2_l; 
uses 

dos, crt; 

var 

i,j,k,nr przerwibyte; 
adr_wekt : pointer; 

function znak(liczba: byte):char; 
begin 

if liczba<10 then 

znak:=chr (48+liczba) 

else 

znak:=chr (55+liczba) 

end; 



function bajt_16 (liczba :byte) : string; 
begin 

baj t_15 :=znak (liczba div 15) +znak (liczba mod 15); 
end; 

function slowo_15 (liczba : word) :string; 
begin 

slowo_15:=bajt_15 (hi (liczba) ) +bajt_15 (lo (liczba) ) ; 
end; 

begin 

for i:=0 to 3 do 

begin 

writeln ( 'Tablica wektorow przerwan od ',54*i,' do ',54*i+53,' (od $ ' , ba j t_15 ( 54*i ) , ' do 
$' ,bajt_15 (54*i+53) ,'):'); 
writeln; 

for j :=0 to 15 do 
begin 

for k:=0 to 3 do 
begin 

nr_pr zerw :=54*i+j+15*k; 

getintvec (nr_przerw, adr_wekt) ; 

write ( ' $ ' ,bajt_16 (nr_przerw) , ' - ' , slowo_16 (seg (adr_wekt^) ),':', slowo_15 (ofs (adr_wekt'~) ),''); 
end; 

writeln; 
end; 
readln; 
end; 

end. 

Zadanie 2. 

Zaprezentuj dziatanie funkcji przerwania 21h koticzqcej dziatanie programu.($4C lub $00) 

program lab2_2; 
uses art, dos; 

var 

rejestry : registers ; 
i :byte; 

begin 

with rejestry do 
begin 

ah:=$4c; 

end; 
clrscr ; 

write (' Konczenie pracy programu'); 
for i : =3 downto 0 do begin 
write ('..', i ) ; 
delay (1000) ; 
end; 

intr ($21, rejestry) ; 
readln; 
end. 

Zadanie 3. 

Zaprezentuj dziatanie funl<cji przerwania 21h odczytujqcej czas systemowy.($2C) 

uses crt,dos; 
procedure data; 

var reg: registers ; 
begin 

with reg do 
begin 

ah:=$2c; 

intr ($21, reg) ; 

writeln (' Czas systemowy: ' , ch, ' : ' , cl, ' : ' , dh) ; 
end; 
end; 

begin 

clrscr; 

data; 

readln; 
end. 



Zadanie 4. 

Zaprezentuj dziatanie funkcji przerwania 21hi odczytujqcej dat? systemowg.($2A) 

program lab2_4; 

uses crt,dos; 
procedure data; 



var reg: registers; 
begin 

with reg do 
begin 

ah:=$2a; 

intr ($21,reg) ; 

writeln ( ' Data systemowa : ' , dl , ' - ' , dh, ' - ' , cx) ; 
end; 

end; 
begin 

clrscr ; 

data; 

readln; 

end. 
Zadanie 5. 

Zaprezentuj dziatanie funkcji przerwania 21h zmieniajgcej katalog biezqcy.($3B) 

uses dos; 

procedure zmien_kat; 

var 

reg: registers; 
str, pom: string; 
begin 

str:='d:\213A\'+#0; 
getdir ( 0 , pom) ; 
writeln (pom) ; 
with reg do begin 
ah:=$3b; 

ds : =seg (str [ 1 ] ) ; 
dx:=ofs(str[l] ) ; 
end; 

{intr ($21, reg) ; } 
msdos (reg) ; 

if (reg. flags and f carry) =1 then 
{if (reg. flags and 1)=0 then} 

writeln (reg .ax) ; 

getdir (O,pom) ; 

writeln (pom) ; 
end; 
begin 

zmien_kat; 

readln; 
end. 

Zadanie 6. 

Zaprezentuj dziatanie funkcji przerwania 21h zmieniajqcej nazwQ pliku.($56 lub $17) 

uses dos,crt; 
procedure zmiana_nazwy; 
var 

tab: registers; 
nazwa, nowa_nazwa : string; 
begin 

nazwa : = 'piotrek . txt ' +#0 ; 

nowa_nazwa : = ' j acek . txt ' +#0 ; 
with tab do 
begin 

ah:=$56; 

ds : =seg (nazwa [ 1 ] ) ; 
dx:=of s (nazwa [1] ) ; 
es : =seg (nowa_nazwa [ 1 ] ) ; 
di : =of s (nowa_nazwa [ 1 ] ) ; 
end; 

intr ($21, tab) ; 

end; 

begin 

clrscr; 

zmiana_nazwy; 

readln; 

end. 

Zadanie 7. 

Zaprezentuj dziatanie funkcji przerwania 21ti tworzqcej nowy plik.($3C lub $16) 

program lab2_5; 
uses dos,crt; 

procedure nowy_plik; 
var 

tab : registers; 
nazwa : string; 
begin 

nazwa :='plik. txt '+#0; 



with tab do 
begin 
ah:=$3c; 

ds : =seg (nazwa [ 1 ] ) ; 

dx:=of s (nazwa [1] ) ; 
end; 

intr ($21,tab) ; 
end; 

begin 
clrscr ; 
nowy_plik; 
readln; 
end. 



Zadanie 8. 

Zaprezentuj dziatanie funkcji przerwania 21h usuwajqcej plik. 

uses dos; 
var 

r : registers; 
8 : string; 
begin 



s : = ' d : \2 13a\xxx . txt ' ; 


{6} 


r .ah:=$41; 


{7} 


r . ds :=seg (s [ 1 ] ) ; 


{8} 


r .dx:=ofs (s [1] ) ; 


{9} 


intr ($21, r) ; 


{10} 



end. 
Zadanie 9. 

Zaprezentuj dziatanie funkcji przerwania 21h tworzqcej podkatalog. 

program lab2_5; 
uses dos,crt; 

procedure podkatalog; 
var 

tab: registers; 
nazwa : string; 
begin 
nazwa := 'pod_kat ' +#0; 

with tab do 
begin 

ah:=$39; 

cx : =2 ; 

ds :=seg (nazwa) ; 
dx:=of s (nazwa) +1; 
end; 
intr ($21, tab) ; 

if (tab. flags and 1)=0 then writeln ( 'OK' ) ; 
end; 

begin 

clrscr; 

podkatalog; 

readln; 

end. 

Zadanie 10. 

Zaprezentuj dziatanie funkcji przerwania 21h odczytujqcej znak z klawiatury (jaki znak/klawisz nacisni^to). 

program lab; 
uses crt,dos; 

procedure odczyt_znaku; 
var reg : registers ; 
begin 

with reg do 

begin 

ah:=$l; {9} 
intr ($21, reg) ; {10} 
writeln; 

writeln (' Odczytany klawisz: ',al); {12} 

end; 

end; 
begin 

clrscr; 

odczyt_znaku; 

readln; 



end. 



Zadanie 11. 

Zaprezentuj dziatanie funkcji przerwania 21h odczytujqcej ciqg znakow z klawiatury. Jest to tzw. buforowane wejscie. 

program lab2_ll; 
uses dos,crt; 

type TBuf=record 
max : byte ; 
curr : byte ; 

buf : array [ 0 .. 255] of char; 
end; 

var bufor:TBuf; 
i : byte ; 

procedure odczyt_ciag; 
var 

tab : registers; 
begin 

writeln ( ' Podaj max: '); 
readln (bufor.max) ; 

with tab do 
begin 

ah:=$OA; 

ds : =seg (buf or ) ; 

dx:=ofs (bufor) ; 

msdos (tab) ; 
end; 

writeln; 
for i:=0 to bufor. curr do 

begin 

write (bufor .buf [i] ) ; 
end; 
end; 

begin 
clrscr ; 
odczyt_ciag; 
readln; 
end. 



Zadanie 12. 

Zaprezentuj dziatanie funkcji przerwania 21h wysytajqcej znak na ekran. Jest to tzw. buforowane wyjscie. 

program lab2_ll; 
uses dos,crt; 
procedure wysli j_znalc; 
var 

tab: registers; 
z :byte; 
begin 

writeln ( ' Podaj znak ' ) ; 
readln (z) ; 
with tab do 
begin 

ah: =$2; 

dl : =z ; 

intr ($21,tab) ; 

end; 

end; 
begin 
clrscr; 
wysli j_znak; 
readln; 
end. 

Laboratorium Nr4 
Zadanie 1. 

Napisz program wyswietlaj^cy kilka informacji o sprz^cie, na ktorym jest urucliamiany (przerwania: $11 oraz $15 funkcja $C0). Wskazowka: proponowana 
funkcja przerwania $15 zwraca adres/wskaznik pewnego obszaru z danymi w pamiQci; aby tatwo odczytywac poszczegolne pola z tego obszaru najlepiej postuzyc 
si? predefiniowanq tablicq IVIem. 



uses dos,crt; 
var 

r : registers ; 

procedure zadl (reg: registers) ; 



var tmp : integer ; 
str : string; 
begin 
clrscr ; 

intr($ll, reg) ; 
tmp:=reg.ax; {0} 

if (tmp and 1)=0 then str:='Brak' else str :=' Jest ' ; 
writeln ( ' Stacja dyskietek: ',str); 
tmp : =tmp shr 1 ; 

if (tmp and 1)=1 then str:='Jest' else str:='Brak' ; 
writeln ( ' Zainstalowany procesor 80x87: ', str); {1} 
tmp ; =tmp shr 1 ; 

if(tmp and 1)=1 then str:='Jest' else str:='Brak'; 
writeln (' Zainstalowane urzadzenie PS/2: ', str); {2} 
tmp : =tmp shr 2 ; 

if (tmp and 2)=2 then str:='Tak' else str:='Nie'; 

writeln (' Tryb graficzny 80x25 color: ', str); {4 initial video mode} 
tmp : =tmp shr 2 ; 

writeln (' Ilosc stacji dyskietek: ', tmp and 3); {7-5} 
tmp : =tmp shr 3 ; 

writeln (' Ilosc urzadzen szeregowych: ', tmp and 7); {9} 
tmp : =tmp shr 3 ; 

writeln (' Zainstalowany port gier: ', tmp and 1); {12} 
tmp : =tmp shr 2 ; 

writeln (' Ilosc urzadzen szeregowych: ', tmp and 3); {14} 
end; 

begin 

zadl (r) ; 

readln; 
end. 



Zadanie 2. 

Zaprezentuj dziatanie przerwan BlOSa zwiqzanych z obstugg klawiatury (przerwanie $16 funkcja SOO i/lub inne zwiqzane z odczytem znakow z klawiatury oraz 
odczytem jej stanu, tzn. z uwzgl^dnieniem klawiszy modyfikujqcych typu Shift, Ctrl, CapsLock, itp.)- 

uses dos,crt; 



var 

r : registers ; 

procedure zad2 (reg: registers) ; 
var 

tmp : byte; 
begin 

reg. ah: =02; 

intr ($16, reg) ; 

tmp : =reg . al ; { 0 } 

writeln (' Prawy shift: 



tmp: 

tmp: 

tmp: 

tmp: 

tmp: 

tmp: 

tmp: 
end; 
begin 

zad2 (r) 

readln; 
end. 



tmp shr 1 
tmp shr 1 



tmp shr 
tmp shr 
tmp shr 
tmp shr 
tmp shr 



, tmp and 1 ) ; 
writeln (' Lewy shift: ', tmp and 
writeln ( 'Ctrl: ', tmp and 1); {2 
writeln ( 'Alt : ', tmp and 1); {3} 
writeln (' ScrollLock : ', tmp and 
writeln ( 'NumLock: ', tmp and 1) ; 
writeln (' CapsLock : ', tmp and 1) 
writeln (' Insert : ' 



1); {1} 



1) 



tmp and 1 ) ; { 7 } 



; {4} 
5} 
6} 



Zadanie 3. 

Zaprezentuj dziatanie przerwan BlOSa odczytujgcych dat? i czas systemowy. Zwrdc uwagQ czy wybrane przerwanie nie zwraca liczb w kodzie BCD. 



uses dos,crt; {czas systemowy} 
var 

r: registers; 

procedure zad3 (reg : registers) ; 
var 

tmp, Id, Ij , Is :byte; 
begin 
reg. ah: =02; 

intr ($1A, reg) ; 

ld:=10* (reg.ch shr 4)+ (reg. oh and $0f ) ; {konwersja BCD->BIN} 

Ij :=10* (reg.cl shr 4)+ (reg.cl and $0f ) ; 

ls:=10* (reg.dh shr 4)+ (reg.dh and $0f ) ; 

writeln ( 'Godzina: ' , Id, ' : ' , Ij , ' : ' , Is) ; 
end; 
begin 



zad3 (r) ; 
readln; 
end. 



uses dos,crt; {data systemowa} 
var 

r : registers ; 

procedure zad4 (reg: registers) ; 
var 

tmp, Id, Ij , Is, dl :byte; 
begin 
reg . ah : =04 ; 
intr ($1A, reg) ; 

ld:=10* (reg.ch shr 4)+ (reg.ch and $0f ) ; 

Ij :=10* (reg.cl shr 4)+ (reg.cl and $0f ) ; 

ls:=10* (reg.dh shr 4)+ (reg.dh and $0f ) ; 

dl:=10* (reg.dl shr 4)+ (reg.dl and $0f ) ; 

if(reg. flags and fcarry)=0 then writeln ( ' OK ' ) ; 

writeln ( ' Wiek : ' , Id) ; 
writeln ( ' Rok ; ',lj); 

writeln ( 'Miesiac : ',1s); 

writeln (' Dzien : ',dl); 
end; 
begin 

zad4 (r) ; 

readln; 
end. 

Zadanie 4. 

Sprobuj programowo wywotac efekt cyklicznie zmieniajqcych siQ zapaleri/zgasniQc diod odpowiadajgcych za klawisze NumLock, CapsLock i ScrollLock. 
Zadanie 5. 

Sprobuj wymusic traktowanie wszystkich wprowadzanych z klawiatury liter jako duzych. 
Proaramowanie arafiki na przerwaniach 

Standardowym trybem pracy tekstowej jest tryb 40 (lub 80) kolumn na 25 wierszy. Pojedynczy znak tworzy matryca 9x16 pikseli (znak kodowany w kodzie ASCII 
zajmuje 1 bajt, niezaleznie od matrycy czy trybu tekstowego). Z kazdym znakiem na ekranie zwigzany jest ponadto jego atrybut okreslajqcy m.in. kolor znaku i 
kolor tta pod znakiem. Atrybut zajmuje 1 bajt (format bajtu opisany przy przerwaniu $10 funkcja $08). Ponadto grafikQ mozna umieszczac na tzw. stronach 
pami^ci video. Oznacza to, ze pami^c karty graficznej zostata podzielona na kilka czQsci - w kazdej mozna niezaleznie pisac/rysowac. W danej chwili aktywna jest 
tyiko jedna strona - to ona jest wyswietlana na ekranie (technicznie rzecz ujmujqc - 6w fragment pami^ci jest „przerzucany" na ekran). Zmiana numeru aktywnej 
strony powoduje bardzo szybkie odrysowanie zawartosci ekranu (jest to mechanizm tzw. bufferingu). 

Znaki na ekranie tekstowym mozna umieszczac na dwa sposoby: 

• przez bezposredni wpis do pami^ci ekranu (metoda szybsza) 

• przez wywotania funcji BIOSu (metoda wolniejsza) 

Metoda 1 

Najpierw metoda pierwsza: adres pami^ci od ktorego rozpoczyna si? umieszczanie znakow to $B800:$0000 (kolorowa karta zgodna z VGA, postac adresu: 
segment:offset). DIa kazdego znaku na ekranie przydzielono w pamiQci 2 bajty: pierwszy to kod ASCII znaku, drugi - jego atrybut Umieszczanie zaczyna si? w 
lewym gornym rogu ekranu. W ten sposob znak umieszczony w lewym gornym rogu powinien zostac wpisany (jego kod ASCII) pod adres $B800:$0000, zas jego 
atrybut - $B800:$0001. Znak obok (ten sam wiersz, kolejna kolumna) to adresy odpowiednio: $B800:$0002 i $B800:S0003. Do wyswietlenia znaku (lub 
ewentualnie odczytania go z ekranu) nalezy wykorzystac tablic? Mem (lub MemW, jesli komus wygodniej). 

Funkcje BlOSa do grafiki tekstowej (metoda 2) 

Funkcje te zgromadzono w przerwaniu nr $10. Oto najwazniejsze z nich: 

• $0F - odczyt stanu ekranu (m.in. aktywna strona) 

• $08, $09 - odczyt/zapis znaku (z atrybutem) w miejscu potozenia kursora 

• $02, $03 - odczyt/ustawienie potozenia kursora na ekranie 

• $01 - ustawienie typu kursora (rozmiaru 'prostokgcika') 

• $05 - zmiana aktywnej strony graficznej 

• $00 - ustawienie trybu pracy karty graficznej, BARDZO WAZNA FUNKOA, opis zawiera rowniez szczegotowe informacje o trybach graficznych, nas interesujg 
tryby zgodne z VGA 

Zadanie 1. {procedura ..pisz"} 

Napisz procedur?/funkcj?, ktora jako parametr przyjmuje tekst oraz jego lewe/gorne wsp6trz?dne wyswietlenia na ekranie i dokonujqc odpowiednich przeliczen 
umieszcza tekst na ekranie. OkresI samodzielnie atrybuty tekstu (tzn. zatoz "z gory") oraz sam zadecyduj o wyborze uktadu wsp6trz?dnych ekranu (tzn. czy lewy 
gorny rog oznacza (0,0), (1,1) czy jeszcze inne wsp6trz?dne). Zademonstruj dziatanie procedury/funkcji w prostym programie. 



Zadanie 2. {procedura „pisz2"} 

Przerob zadanie 1 z postaci "pami?ciowej" na wykorzystujgcq funkcje BlOSa. Dodatkowo sprawdz dziatanie funkcji $01. 

program grafika_l; 
uses crt,Dos; 



var x,y:byte; 



tekst : string; 



procedure pisz (x, y:byte; tekst : string; atrybut :byte) ; 
var 

s, o : word; 
i :byte; 
begin 

if y*150+x+length (tekst) > 4000 then writeln (' Tekst wykracza poza obszar ekranu') 

else 

begin 

s:=$B800; 

o:=$0000+x*2+y*160; 

for i:=l to length (tekst) do 

begin 

mem [s : o] :=ord (tekst [i] ) ; 
inc (o) ; 

mem [ s : o ] : =atrybut ; 
inc (o) ; 

end; 

end; 

end; 



procedure pisz2 (x, y zbyte; tekst : string; atrybut : byte) ; 
var r: registers; 

i :byte; 
begin 

for i:=l to length (tekst) do 
begin 



r .AH 


= $02; 


r .BH 


= 0; 


r .DH 


=y; 


r .DL 


=x; 


intr ($10, r) ; 


r .AH 


= $09; 


r .AL 


=ord (tekst [i 


r .BH 


= 0; 


r .BL 


=atrybut; 


r .CX 


= 1; 


intr ($10, r) ; 


inc (x) ; 


if x>160 then 


begin 




X : =0 ; 




inc (y) ; 


end; 





end; 

end; 
begin 

clrscr ; 

writeln (' Podaj tekst do wypisania na ekranie: '); 
readln (tekst) ; 

writeln (' Podaj wspolrzedne: '); 

readln (x, y) ; 

clrscr; 

pisz (x, y, tekst, 3 ) ; 
pisz2 (x+1, y+1, tekst, 3) ; 
readln; 

end. 



Zadanie 3. 

Napisz program tworzqcy ten sam tekst na dwoch stronach video. Tekst powinien rbznic si? jedynie ttem pod znakami. Wyswietlaj naprzemiennie obie strony (w 
rownych odst?pach czasowych), aby stworzyc efekt prostej animacji. 

program grafika_2; 
uses Crt,Dos; 

procedure pisz2 (x, y :byte; tekst : string; atrybut :byte; strona :byte) ; 
var r: registers; 

i :byte; 
begin 

for i:=l to length (tekst) do 
begin 

r.AH:=$02; 
r .BH:=strona; 
r.DH:=y; 
r.DL:=x; 
intr ($10, r) ; 
r.AH:=$09; 

r.AL:=ord(tekst[i] ) ; 
r . BH : =strona; 
r . BL : =atrybut ; 



r . CX : =1 ; 

intr ($10,r) ; 

inc (x) ; 

if x>160 then 

begin 

X : =0 ; 
inc (y) ; 

end; 

end; 

end; 

procedure strona (numer ; byte ) ; 

var r: registers; 

begin 

r.AH:=$05; 
r .AL:=numer; 
intr ($10, r) ; 

end; 
begin 

strona (0) ; 
clrscr ; 
strona (1) ; 
clrscr; 
strona (2) ; 
clrscr; 
strona (3) ; 
clrscr; 

pisz2 (10,10, 'POLITECHNIKA' ,3,1); 
pisz2(ll,10, 'POLITECHNIKA' ,10,2); 
pis22 (12, 10, ' POLITECHNIKA' ,4,3); 
while not keypressed do 
begin 

strona (1) ; 
delay (150) ; 
strona (2) ; 
delay (150) ; 
strona (3) ; 
delay (150) ; 

end; 

end . 

Podobnie jak grafika w trybie tekstowym grafika punktowa moze bye umieszczana na ekranie dwiema metodami: 

• Bezposredni zapis do pami^ci - metoda szybsza 

• Wywotanie odpowiedniej funkcji BlOSa - metoda wolniejsza 

Zanim zaczniemy cokolwiek rysowac na ekranie (oboj^tnie czy metodq 1 czy 2) musimy ustawic kartQ grafiki w tryb grafiki punktowej. Adres pamiQci od ktorego 
rozpoczyna si? umieszczanie pikseli to $A000:$0000 (kolorowa karta zgodna z VGA). DIa kazdego punktu na ekranie przydzielono w pami^ci 1 bajt kodujqcy kolor 
(stqd 256 kolorow). Podobnie jak w trybie tekstowym umieszczanie zaczyna si? w lewym gornym rogu ekranu (0,0). W trybie graficznym, tak jak w tekstowym, 
mozna w niektorych trybach korzystac z wi^cej niz jednej strony graficznej. 

Buforowana grafika to rysowanie na stronie niewidocznej w momencie rysowania, a nast?pnie, kiedy rysunek jest gotowy, przetqczenie si? na takq stron?. Po 
zakoticzeniu rysowania w trybie graficznym (tuz przed zakoriczeniem programu) powinnosiQ przywrocic tryb znakowy np. S03. 

Funkcje BlOSa do grafiki punktowej 

Funkcje te (podobnie jak grafika znakowa) zgromadzono w przerwaniu nr $10. Oto najwazniejsze z nich: 

• $00 - ustawienie trybu pracy karty graficznej, BARDZO WAZNA FUNKCJA, opis zawiera rowniez szczegotowe informacje o trybach graficznych, nas interesujq 

tryby zgodne z VGA 

• $05 - zmiana aktywnej strony graficznej 

• $0F - odczyt stanu ekranu (m.in. aktywna strona) 

• $0C - postawienie punktu (piksela) na ekranie 

• $0D - odczyt punktu (piksela) z ekranu 

• $1A, $1B - odczyt rbznych informacji o karcie graficznej 

• $13 - wypisanie ciggu znakow w trybie grafiki (dziata tez write/writein) 

Zaawansowane: 

• $10 - wybor palety kolorow 

• $11 - wybor generatora znakow 

Zadanie 1 

Napisz procedur^/funkcj?, ktora jako parametr przyjmuje wspotrz^dne lewego gornego rogu prostokqta oraz jego szerokosc 1 wysokosc a nast^pnie dowolnym 
kolorem oraz metodq rysuje prostokqt w trybie grafiki punktowej. OkresI samodzielnie kolor linii. Sprobuj rozwigzac zadanie obiema metodami umieszczania 
pikseli (pami?c i BIOS). Zademonstruj dziatanie procedury/funkcji w prostym programie. 

uses dos,crt; 

var 

X, y, a,b: integer; 
r : registers ; 

procedure prostokat (x, y, a,b: integer) ; 



var 

i : integer; 

x_t, y_t : integer; 

begin 

r.ah:=$00; 

r.al:=$13; 

intr ($10,r) ; 

x_t : =x ; 

y_t:=y; 

r.ah:=$05; 

r.al:=$00; 

intr ($10, r) ; 

for i:=l to a do 



for i:=l to b do 



for i:=l to a do 



for i:=l to b do 



begin 
r . ah : 
r.bh: 
r.al: 
r . cx : 
r . dx : 
intr 
x_t : = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . cx : 
r . dx : 
intr ( 
y_t: = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . cx : 
r . dx : 
intr ( 
x_t: = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . cx : 
r . dx : 
intr ( 
y_t: = 
end; 



=$0C; 
=$00; 
=$03; 
=x_t; 
=y_t; 
$10, r) ; 
X t+1; 



= $0C; 
=$00; 
=$04; 
=x_t; 
=y_t; 
$10, r) ; 
y_t+l; 



=$0C; 
=$00; 
= $02; 
=x_t; 
=y_t; 
$10, r) ; 
X t-1; 



= $0C; 
= $00; 
= $02; 
=x_t; 
=y_t; 
$10, r) , 
y_t-l; 



end; 



begin 
clrscr ; 

writeln ( ' Poda j x: ');read(x); 

writeln ( ' Podaj y: ');read(y); 

writeln (' Podaj a: ');read(a); 

writeln (' Podaj b: ');read(b); 

prostokat (x, y, a,b) ; 

{r .ah:=$00; 

r.al:=$03; 

intr ($10, r) ; } 

readkey; 

end. 

Obsfuqa myszy: 

Bez wzgl^du na tryb pracy karty graficznej (znakowy lub punktowy) funkcje myszy zgodnej ze standardem Microsoft obstugiwane s^ jako funkcje przerwania 
$33. Kazdemu potozeniu kursora myszki na ekranie odpowiadaj^ tzw. wspotrz^dne ekranu wirtualnego (nie jest to to samo co rozdzielczosc!!!). W trybie 
znakowym wspotrz^dne przemnazane przez rozmiary matrycy znaku, np. jezeli kursor (prostokqcik) jest nad pierwszym znakiem (lewy gorny rog), zas matryca 
znaku to 8x8 punktow to wtedy wspotrz^dne wynoszg (0,0), znak obok (8,0), znak ponizej (0,8), znak obok i ponizej (8,8), ltd. Przy pracy w trybie grafiki 
punktowej wspotrz^dne kursora odnoszq si? do tzw. punktu hot-spot, czyli np. czubka strzaiki kursora. Jezeli chcemy obstugiwac stale kilka zdarzen zwiqzanych z 
myszkg (np. sprawdzenie czy w momencie nacisni^cia lewego przycisku myszy kursor znajdowat si? nad okreslonym obszarem ekranu) to mozna to tatwo uczynic 
piszqc kilka procedur/funkcji obstuguj^cych wybrane funkcje przerwania myszy (np. jedna procedura/funkcja, ktora odczytuje wspofrz^dne potozenia kursora 
myszy i druga ktora odczytuje, ktory przycisk myszy nacisni^to). Nast^pnie (WAZNE!) napisane podprogramy wywotujqce funkcje myszy trzeba umiescic w 
JEDNEJ PROCEDURZE OPATRZONEJ DYREKTYW/^ INTERRUPT i adres tej procedury przypisac do programu obstugi myszy (patrz wykaz wazniejszych funkcji 
myszy), np. sprawdz czy nacisni^to lewy przycisk myszy, jesli tak to sprawdz czy wspotrz^dne wskazujg, ze kursor myszy znalazt sIq nad jakims przyciskiem, jesli 
tak to odrysuj przycisk jako wcisni^ty i wykonaj (lub zakolejkuj) przynaleznq mu procedur^/funkcjQ. 



Waznieisze funkcje obstugi myszy 

to funkcje zgromadzone w przerwaniu $33 i wywotywane poprzez przypisanie do rejestru AX: 

• $0000 - inicjacja i sprawdzenie stanu myszki 

• $0001 i $0002 - wyswietlenie i ukrycie kursora myszy 

• $0003 - odczyt potozenia i stanu przyciskow 



• $0004 - ustawienie potozenia 



• $0005/$0006 - odczyt stanu nacisniQcia/zwolnienia przyciskow 

• $000C - WAZNE! ustawienie adresu NASZEJ procedury obstugi myszy (patrz objasnienia wyzej) 

• $0014 - WAZNE! zmiana procedury obstugi myszy z ZACHOWANIEM ADRESU STAREJ PROCEDURY (nieco podobne do $000C) 

• $001D/S001E - funkcje zwigzane z numerem strony, na ktorej znajduje siQ kursor 

• $0026 - WAZNE! odczyt wspotrz^dnych ekranu wirtua!nego (porownaj z $0031) 

Zadanie 2 

Napisz procedury/funkcje, ktore w trybie znakowym karty graficznej odczytujq i wyswietlajq na srodku ekranu biezqce wsp6trz?dne potozenia kursora myszy. 
Pami^taj o prze!iczanlu wspotrz^dnych zgodnie z matrycq znaku w danym trybie grafiki znakowej. Wskazowka - zrob uzytek z funkcji $000C !ub $0014. 

Zadanie 3 

Zrob to samo co w zadaniu 2, ale w trybie grafiki punktowej. 

program zad_3; 
uses dos,crt; 

procedure wspolrzedne; 

var 

r : registers ; 
X, y : integer; 

cx, dx, scroll , Imb, rmb : integer; 

begin 

r.ah;=$00; 

r.al:=$03; 

intr ($10, r) ; 

r .ax:=$0000; 

intr ($33, r) ; 

if r.ax=$0000 then begin 

writeln ( 'Myszka nie zainstalowana ! ! ' ) ; 

exit; 

end; 

if r.ax=$FFFF then begin {jesli myszka zainstalowana} 

clrscr ; 

r.ax:=$0001; {pokaz kursor} 

intr ($33, r) ; 
repeat begin 

r.ax:=$0003; { zwroc pozycje} 

intr ($33, r) ; 

if (cxOr.cx) or (dxOr.dx) then begin 
cx : =r . cx; 
dx : =r . dx; 

clrscr; 
writeln (cx) ; 
writeln (dx) ; 

writeln ( ' Stan przyciskow: ' ) ; 
Imb : =r . bx; 
rmb : =r . bx; 
scroll : =r . bx; 

if lmb=l then writeln (' Lewy wcisniety'); 

if rmb=2 then writeln (' Prawy wcisniety'); 

r.ax:=$0001; { zwraca Stan przyciskow} 

intr ($33, r) ; 

end 

end; 

until keypressed; 
end; 

end; 
begin 

wspolrzedne; 

readkey; 

end. 

IVIozna podmienic wtasciwie prawie kazdq procedure obstugi przerwania na wtasnq. Wtasna procedura powinna bye bezparametrowa tub jako parametry 
przekazywac jedynie wartosci rejestrow oraz OBOWIAZKOWO powinna zostac opatrzona dyrektywq 'interrupt' (szczegoty mozna sprawdzic w pomocy Turbo 
Pascala dia hasta 'interrupt'). Z oczywistycti wzgl^dow NIE WOLNO beztadnie podmieniac sobie procedur obstugi dowolnycti przerwan (przestanie funkcjonowac 
system operacyjny lub b^dzie dziatat nieprawidtowo). Istnieje mozliwosc wywotania we wtasnej procedurze oryginalnego programu obstugi przerwania. 
Technicznie oznacza to wykonanie kodu spod okreslonego adresu w pami^ci (czyli tego adresu, gdzie znajduje si^ oryginalny podprogram). Dodatkowo - mozna 
we wtasnej procedurze obstugi danego przerwania wywotywac inne przerwania/funkcje DOSa/BIOSa (lntr() tub IVIsDosO). 

Piszgc program, ktory podmienia procedure obstugi przerwania na wtasnq powinnismy pami^tac o kiiku podstawowych regutach: 

1. Napisz wtasnq procedure obstugi przerwania stosujqc siQ do wyzej wymienionycli wymogow 

2. ZapamiQtaj adres oryginalnej procedury (GetlntVecO) 

3. Podmieti procedure na wtasng (SetlntVecO) 

4. Dobry sty! programowania wymaga, aby przed zakoiiczeniem program przywrocit oryginainq procedur? obstugi przerwania (adres zapami^tany w kroku 2). 
Zadanie 1 

Korzystajgc z poznanych funkcji DOSa i BlOSa (oraz zasady budowania/przectiowywania obrazu w trybie znakowym) napisz procedur? zapisujgcg zawartosc 
ekranu do pliku po nacisni^ciu kiawisza PrintScreen. 



Wskazowki: przypomnij sobie wiadomosci o pamiQci ekranu (ewentualnie funkcjach odczytujgcych zawartosc ekranu). Klawisz PrintScreen wywotuje przerwanie 
$5 powodujqce wystanie zawartosci ekranu na drukark? (wywotanie przerwania $17). Sprobuj najpierw podmienic przerwanie Sl7 - jesli nie zadziata - $5. 



uses 
dos, crt; 



var 

r: registers; 
tmp: pointer; 



procedure check; 
var 

nr :byte; 
begin 

r.ah:=$02; 

nr : =r . dx; 

intr ($17, r) ; 

if(nr=0) then writeln ( ' Drukarka zajeta'); 
end; 

procedure prtscr; interrupt; 

var 
plik : text; 
i :byte; 

begin 

assign (plik, 'd:\213a\prtscr. txt ' ) ; 
rewrite (plik) ; 
for i:=0 to 80 do 
begin 

write (plik, chr (mem[$B800 : i*2] ) ) ; 
end; 

close (plik) ; 
end; 



begin 
clrscr ; 
readln; 

getintvec ($5, tmp) ; 
setintvec ($5, (Sprtscr) ; 
readln; 

setintvec ($5, tmp) ; 
end. 
Zadanie 2 

Istnieje przerwanie periodycznie wywotywane przez procesor - $1C (kiikanascie razy na sekund?). Oznacza to wywotywanie procedury przypisanej do tego 
przerwania. Napisz program wyswietlajgcy na ekranie aktualny czas (skorzystaj z wiadomosci o funkcjach odczytu czasu do napisania wtasnej procedury obstugi 
przerwania $1C). Wybierz tryb znakowy. 



uses dos, crt; 



var r: registers; 
temp: pointer; 



procedure setmode; 
begin 

r.ah:=$00; 

r.al:=$03; 

intr($10,] 
end; 



{ustawienie trybu znakowego} 



procedure czas (var tmp_sek:byte) ; interrupt; 
var 

Id, Is, Ij :byte; 
begin 
r.ah:=$02; 
intr ($lA,r) ; 
ld:=10* (r.ch shr 4 
Ij :=10* (r.cl shr 4 



ls: = 



(r.ch and $0F) 
(r.cl and $0F) 
(r.dh and $0F) 



=10* (r.dh shr 4) 
if (ls<>tmp_sek) then begin 
clrscr; 
tmp_sek : =ls ; 

writeln ( 'Godzina: ' , Id, ' : ' , 1 j , ' : ' , Is ) ; 
end; 
end; 



begin 
setmode; 
clrscr; 

getintvec ($lc, temp) ; 
setintvec ($lc, Sczas) ; 
readln; 

setintvec ($lc, temp) ; 
end. 



